home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d19 / dorpch37.arc / DOORPCH.END < prev    next >
Text File  |  1991-01-01  |  4KB  |  142 lines
  1. ' *****************************************************************************
  2. ' *                     DOORPCH.END Version 3.7 for Doors                     *
  3. ' *                    By Raymond Clements, Clint Labarthe                    *
  4. ' *                Terry Shockley, Harold Thomson & Ben Perron                *
  5. ' *         Copyright (C), 1987, 1988, 1989, 1990 All Rights Reserved         *
  6. ' *              This logic begins at line number (label) 10000.              *
  7. ' *                                                                           *
  8. ' *             It MUST be "$INCLUDEd" at the END of your program.            *
  9. ' *****************************************************************************
  10.  
  11. ERR.ROUTINE:
  12. 10000 SELECT CASE ERR
  13.              CASE IS=53
  14.                   IF ERREXP%=53 THEN
  15.                      CALL OUT.PUT
  16.                      ERREXP%=1
  17.                      RESUME NEXT
  18.                   END IF
  19.                   LN$="File not found."
  20.              CASE IS=54
  21.                   LN$="Bad file mode or file not open."
  22.              CASE IS=57
  23.                   IF ERREXP%=57 THEN
  24.                      IF ERRCNT%<10 THEN
  25.                         ERRCNT%=ERRCNT%+1
  26.                         ERREXP%=1
  27.                         RESUME NEXT
  28.                      END IF
  29.                   END IF
  30.                   LN$="Comm Port I/O Error."
  31.              CASE IS=61
  32.                   LN$="Disk is full!"
  33.              CASE IS=62
  34.                   LN$="Input past end of file."
  35.              CASE IS=63
  36.                   IF ERREXP%=70 THEN
  37.                      IF ERRCNT%<50 THEN
  38.                         ERRCNT%=ERRCNT%+1
  39.                         D.TIME%=3: CALL DELAY.TIME(D.TIME%)
  40.                         RESUME
  41.                      END IF
  42.                   END IF
  43.                   LN$="Bad record number."
  44.              CASE IS=64
  45.                   LN$="Bad file name specified."
  46.              CASE IS=70
  47.                   IF ERREXP%=70 THEN
  48.                      IF ERRCNT%<50 THEN
  49.                         ERRCNT%=ERRCNT%+1
  50.                         D.TIME%=3: CALL DELAY.TIME(D.TIME%)
  51.                         RESUME
  52.                      END IF
  53.                   END IF
  54.                   LN$="Permission denied."
  55.              CASE IS=75
  56.                   LN$="Path/File access error."
  57.              CASE IS=76
  58.                   LN$="Path not found."
  59.              CASE ELSE
  60.                   LN$="Unknown error."
  61.       END SELECT
  62.       GOSUB 10025
  63.       LN$="Please notify SysOp: Program failure in Main Module of "+PROGNAME$+".": GOSUB 10025
  64.       LN$="Error #"+STR$(ERR)+" in line"+STR$(ERL)+".": GOSUB 10025
  65.       ERREXP%=ERR
  66.       ERRCNT%=-1
  67. 10020 CALL EXITG
  68. 10025 IF COMPRTOPN%<>1 THEN
  69.          PRINT LN$
  70.          LN$=""
  71.       ELSE
  72.          CALL OUT.PUT
  73.       END IF
  74.       RETURN
  75. '
  76. 'If your programs require these lines then remove the "'"s.
  77. '
  78. '10170 CALL OUT.PUT
  79. '      RETURN
  80. '10185 CALL CLR.SCRN
  81. '      RETURN
  82. '10200 CALL OUT.NCR
  83. '      RETURN
  84. '10230 CALL IN.PUT
  85. '      RETURN
  86. '10235 CALL GET.KEY
  87. '      RETURN
  88. '10400 'Return to PCBoard
  89. '10410 CALL EXITG
  90. '10450 CALL SCRN.POS
  91. '      RETURN
  92. '10500 CALL MUSICG
  93. '      RETURN
  94. 'SET.COLORS:
  95. '      CALL SET.COLORS
  96. '      RETURN
  97. 'BLNKRED:
  98. '      BLINK%=1
  99. 'RED:
  100. '      FGC%=1
  101. '      RETURN
  102. 'BLNKGREEN:
  103. '      BLINK%=1
  104. 'GREEN:
  105. '      FGC%=2
  106. '      RETURN
  107. 'BLNKYELLOW:
  108. '      BLINK%=1
  109. 'YELLOW:
  110. '      HIGH%=1
  111. '      FGC%=3
  112. '      RETURN
  113. 'BLNKBLUE:
  114. '      BLINK%=1
  115. 'BLUE:
  116. '      FGC%=4
  117. '      RETURN
  118. 'BLNKMAGENTA:
  119. '      BLINK%=1
  120. 'MAGENTA:
  121. '      FGC%=5
  122. '      RETURN
  123. 'BLNKCYAN:
  124. '      BLINK%=1
  125. 'CYAN:
  126. '      FGC%=6
  127. '      RETURN
  128. 'BLNKWHITE:
  129. '      BLINK%=1
  130. 'WHITE:
  131. '      FGC%=7
  132. '      RETURN
  133. 'REDWHT:
  134. '      FGC%=1
  135. '      BGC%=7
  136. '      HIGH%=0
  137. '      RETURN
  138. 'BLKWHT:
  139. '      FGC%=0
  140. '      BGC%=7
  141. '      RETURN
  142.